home *** CD-ROM | disk | FTP | other *** search
/ Catch Me If You Can Press Kit / Catch Me if You Can Press Kit.iso / mac / Catch Me If You Can.dxr / scripts_40_bio checkbox script.ls < prev    next >
Encoding:
Text File  |  2002-11-21  |  580 b   |  24 lines
  1. property spriteNum, mySprite, myThumb, myMemberNum
  2. global bioDL
  3.  
  4. on beginSprite me
  5.   mySprite = sprite(spriteNum)
  6.   myThumb = sprite(spriteNum - 1).member.name
  7.   myMemberNum = mySprite.member.number
  8.   if bioDL.getPos(myThumb) <> 0 then
  9.     mySprite.member = member(myMemberNum + 1)
  10.   end if
  11. end
  12.  
  13. on mouseUp me
  14.   myName = mySprite.member.name
  15.   myMemberNum = mySprite.member.number
  16.   if myName contains "0" then
  17.     mySprite.member = member(myMemberNum + 1)
  18.     append(bioDL, myThumb)
  19.   else
  20.     mySprite.member = member(myMemberNum - 1)
  21.     deleteOne(bioDL, myThumb)
  22.   end if
  23. end
  24.